home *** CD-ROM | disk | FTP | other *** search
/ Creative Review 28 / Creative-Review-CD-ROM-28.iso / pc / kungfu / assets / game.dir / 00034_Script_anim manager class < prev    next >
Text File  |  1997-08-08  |  2KB  |  100 lines
  1. -- anim manager class method
  2. -- --------------------------------------------------
  3.  
  4. property animlist
  5. property animname
  6. property ancestor
  7.  
  8. -- ==================================================
  9. -- new method
  10. -- --------------------------------------------------
  11. on new me, props
  12.   
  13.   minit me, props
  14.   return me
  15.   
  16. end mnew 
  17.  
  18. -- ==================================================
  19. -- minit method
  20. -- --------------------------------------------------
  21. on minit me, props
  22.   
  23.   --  put "in minit anim manager"
  24.   
  25.   set animdata = getaprop ( props, #animdata )
  26.   set drawdata = getaprop ( props, #drawdata )
  27.   sort drawdata
  28.   
  29.   set drawlist = []
  30.   repeat with channel in drawdata
  31.     set draw = new ( script "draw class", [ #channel : channel ] )
  32.     add drawlist, draw
  33.   end repeat
  34.   
  35.   set animlist = [:]
  36.   
  37.   repeat with index = 1 to count ( animdata )
  38.     
  39.     set animname = getpropat ( animdata, index )
  40.     set animprops = getat ( animdata, index )
  41.     
  42.     --    put "animname:" , animname
  43.     -- put  "animprops:" , animprops
  44.     
  45.     set anim = new ( script "anim class" , animprops )
  46.     
  47.     msetdraw anim, drawlist
  48.     
  49.     addprop ( animlist , animname, anim )
  50.     
  51.   end repeat
  52.   
  53.   --   put "out minit anim manager"
  54.   
  55. end minit
  56.  
  57. -- ==================================================
  58. -- msetanim method
  59. -- --------------------------------------------------
  60.  
  61. on msetanim me, newanimname, callback
  62.   
  63.   --  put "msetanim anim manager", newanimname, callback
  64.   
  65.   set animname = newanimname
  66.   set ancestor = getaprop ( animlist, animname)
  67.   mstart ancestor, callback
  68.   
  69.   --  put "msetanim anim manager"
  70.   
  71. end msetanim
  72.  
  73. -- ==================================================
  74. -- mdispose method
  75. -- --------------------------------------------------
  76. on mdispose me
  77.   
  78.   --  put "in mdispose anim manager class"
  79.   
  80.   set animlist = 0
  81.   mdispose ancestor
  82.   set ancestor = 0
  83.   
  84.   --  put "in mdispose anim manager class"
  85.   
  86. end mdispose me
  87.  
  88. -- ==================================================
  89. -- mabort method
  90. -- --------------------------------------------------
  91. on mabort me
  92.   
  93.   -- put "in mabort anim manager"
  94.   
  95.   mabort ancestor
  96.   
  97.   -- put "out mabort anim manager"
  98.   
  99. end mabort me
  100.